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Abstract 


The  fuelwood  harvesting  computer  program  (FHP)  is  written 
in  FORTRAN  60  and  designed  to  select  a  collection  of  har¬ 
vest  units  and  systems  from  among  alternatives  to  satisfy 
specified  energy  requirements  at  a  lowest  cost  per  million 
Btu's  as  recovered  in  a  boiler,  or  thousand  pounds  of  H2O 
evaporative  capacity  kiln  drying.  Computed  energy  costs  are 
used  as  a  criterion  of  economic  viability.  Sensitivities  of  en¬ 
ergy  costs  and  fuel  requirements  to  changes  in  moisture 
content  are  computed  and  provided  in  the  printed  output. 

Keywords:  Wood/bark  fuel,  harvesting,  economics,  computer 
program. 
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Introduction 


Forest  residues  represent  an  abundant  wood  source  often 
unutilized  because  of  the  inability  of  market  prices  to  sup¬ 
port  costs  for  harvesting.  In  some  circumstances,  however, 
harvesting  forest  residues  for  fuel  may  be  combined  with 
harvesting  of  wood-chip  and  cull-log  products  to  offer  eco¬ 
nomic  and  environmentally  desirable  utilization  of  forest 
residues.  The  fuel  harvest  analysis  computer  program 
(FHP)  is  designed  to  select  harvest  units  and  harvest  sys¬ 
tems  from  a  number  of  alternatives  to  satisfy  specific  en¬ 
ergy  requirements,  at  a  lowest  cost  per  million  Btu's  as  re¬ 
covered  in  a  boiler  (as  exemplified  in  fig.  1),  or  per 
thousand  pounds  of  H^O  evaporative  capacity  for  kiln  dry¬ 
ing  (as  exemplified  in  fig.  2).  The  energy  costs  so  com¬ 
puted  can  then  be  used  as  a  criterion  for  economic  viability 
of  various  harvesting  options. 

The  FHP  computer  program  given  in  the  appendix  is  writ¬ 
ten  in  FORTRAN  60  for  use  by  forestry  planners,  business 
analysts,  and  utilization  economists.  The  program  is  de¬ 
signed  for  application  to  logging  operations  where  the  fol¬ 
lowing  conditions  apply: 

•  year-round  headquarters  are  maintained  for  business 
management  and  equipment  storage  and  repair, 

•  harvesting  opportunities  are  available  at  different  harvest 
sites  and  wood  supplies  may  collectively  exceed  fuel 
product  demand  and  harvesting  capacities. 

•  prospective  harvest  units  may  have  different  cost  re¬ 
quirements  for  construction  of  roads  and  landings. 

•  alternative  harvesting  systems  may  be  employed  at  any 
harvest  unit  for  production  of  different  product  mixes  of 
fuel  and  other  marketable  products. 


Structure  of  the  FHP  computer  program  follows  standard 
accounting  practices.  Computed  energy  costs  are  residual 
costs,  i.e.  the  net  amount  of  costs  and  revenues  from  mar¬ 
ketable  products  are  a  residual  cost  which  may  be  nega¬ 
tive  in  situations  where  revenues  exceed  all  costs.  Costs 
for  risk  and/or  requirements  for  profit  on  working  capital 
may  be  included.  Marginal  cost  analyses  may  be  accom¬ 
plished  by  representing  a  harvest  unit  as  a  series  of  differ¬ 
ent  intensities  of  possible  harvesting.  For  all  analyses,  sen¬ 
sitivities  of  energy  costs  and  fuel  requirements  to  changes  in 
moisture  content  are  computed  and  provided  in  the  printed 
output  (figs.  1  and  2). 
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Data  Input  Requirements 


Use  of  the  FHP  computer  program  requires  good  estimates 
of  costs  per  hour  for  each  operable  harvesting  system  con¬ 
sidered,  and  good  estimates  of  the  number  of  operating 
hours  required  per  acre  of  harvest  area.  The  entries  for  gen¬ 
eration  of  the  problem  specification  and  printed  output  of  fig¬ 
ures  1  and  2  are  derived  from  data  coding  worksheets 
(figs.  3  and  4).  Input  requirements  for  these  worksheets  are 
described  below: 

Card  Type  1:  Title  card  (fig.  3)  for  captioning  printed  out¬ 
put  (first  card  in  data  deck). 

Card  Type  2;  Program  constants  (fig.  3)  (second  card  in 
data  deck). 

Cols.  2-3:  Number  of  Harvest  Units.  Enter  number  of 
harvest  units  to  be  considered,  up  to  50  harvest  units. 

Cols.  7-10:  Stack  Temperature.  Enter  in  degrees 
Fahrenheit  (at  least  100°),  for  computation  of  costs  per 
million  Btu’s  of  steam.  A  stack  temperature  of  375°F  is 
typical.  If  no  entry  is  made,  the  program  computes 
costs  per  thousand  pounds  of  H2O  evaporative  capacity 
of  stack  gases  (1,700  Btu's  per  pound  of  water  evapo¬ 
rated  as  in  a  dry  kiln).  Boiler  efficiency  calculations  as¬ 
sume  40  percent  excess  air  and  4  percent  heat  loss 
from  unburned  fuel,  radiation,  and  unaccounted  heat 
losses.’  The  equations  used  for  computation  of  boiler 
efficiencies  are  shown  in  table  1 . 

Table  1.— Equations  used  for  computation  of  boiler  effi¬ 
ciencies 


Range  of 
moisture 
content 
(wet  basis) 


From 

To 

0 

0.285 

0.286 

0.443 

0.444 

0.545 

0.545 

0.614 

0.615 

greater 

Boiler  efficiency  (BE)  versus 

Moisture  content  fraction,  wet  basis  (MCW) 

and  Stack  temperature  in  faftrenheit  (°F)  (ST) 


BE  -  0.9350  -  (MCW  *  0.18182)  -  (ST  *  0.000310) 

BE  =  1.0019  -  (MCW  •  0.35454)  -  (ST  *  0.000345) 

BE  =  1.0920  -  (MCW  *  0.51232)  -  (ST  *  0.000385) 

BE  -  1.3128  -  (MCW  *  0.87770)  -  (ST  *  0.000410) 

BE  =  1.4646  -  (MCW  '  1.09615)  -  (ST  '  0.000445) 


Cols.  11-20:  Annual  Heating  Requirements.  Enter  in 
millions  of  Btu's  if  stack  temperature  is  specified,  other¬ 
wise  in  number  of  pounds  (in  thousands)  of  HjO  to  be 
evaporated  annually. 


Cols.  23-30:  Fixed  Cost.  Enter  the  annual  costs  for 
headquarter  operations,  i.e.  for  business  management, 
equipment  storage  and  repair,  etc. 


Cols.  34-35:  Number  of  Weeks  for  Working  Capital. 
Enter  average  time  in  weeks,  from  actual  payout  for 
wages,  supplies,  etc.,  until  cash  returns  are  realized 
from  sale  of  products  and/or  to  time  fuel  is  burned. 


'Corder  S  F  Wood  and  bark  as  fuel  School  of  Forestry  Research  Bul- 
telin  14  Corvallis.  OR:  Oregon  State  University:  1973, 


Cols.  41-45:  Risk-Profit  Requirement.  Enter  a  decimal 
fraction  amount  to  indicate  desired  or  alternative  rate-of- 
return  for  investments. 

Card  Type  3:  Harvest  unit  data  card  (fig.  3).  One  card 
must  be  prepared  for  each  harvest  unit  to  be  considered. 
Harvest  system  data  cards  (card  type  4)  and  harvest  sys¬ 
tem's  product  data  cards  (card  type  5)  will  be  assembled  in 
filing  fashion  following  each  corresponding  hanrest  unit  card 
(card  type  3). 

Col.  1 :  Enter  “U"  to  identify  Card  as  a  harvest  unit  data 
card. 

Cols.  2-3:  Harvest  Unit  Number.  Enter  the  sequential 
number  of  the  harvest  unit. 

Cols.  5-10:  Harvest  Unit  Name.  Enter  any  alpha¬ 
numeric  captioning  for  the  harvest  unit. 

Cols.  15-20:  Unit’s  Unit  Measure.  Enter  unit  of  measure 
used  for  harvest  area's  wood/bark  materials,  such  as 
“cubic  feet,"  “MBF,"  “Scribner,"  etc. 

Cols.  24-30:  Harvest  Unit’s  Acres.  Enter  the  total  num¬ 
ber  of  acres  to  be  harvested  in  the  harvest  unit. 

Cols.  34-40:  Units  per  Acre.  These  units  must  corre¬ 
spond  to  the  unit  of  measure  entered  in  Cols.  15-20. 

Cols.  44-50:  Unit's  Fixed  Cost.  Enter  the  estimated 
fixed  cost  for  putting  the  harvest  unit  into  condition  suit¬ 
able  for  harvesting  operations.  This  amount  should  in¬ 
clude  costs  for  landings,  roads,  lump  sum  amounts  for 
stumpage,  and  the  like. 

Cols.  54-55:  Number  of  Systems:  Alternative  hanresting 
systems  may  be  considered  for  each  harvest  unit,  each 
with  different  operating  costs  per  hour  and  product  mix. 
Data  for  each  system  will  follow.  The  number  of  alterna¬ 
tive  systems  to  be  considered  must  be  entered  here. 

Cols.  59-64:  Cubic  Feet  per  Unit.  Enter  the  number  of 
cubic  feet  of  solid  wood/bark  per  unit  of  measure  used. 

If  cubic  feet  is  the  unit  of  measure  then  1 .0  must  be  en¬ 
tered.  If  MBF  (thousand  board  feet)  is  entered,  then  an 
appropriate  figure  somewhere  between  1 60.0  and  225.0 
should  probably  be  entered — representing  the  number 
of  cubic  feet  of  solid  wood  per  MBF. 

Card  Type  4;  Harvest  system  data  (fig.  4).  Prepare  one 
harvest  system  data  card  for  each  system  considered  for  a 
harvest  unit. 

Col.  1 :  Enter  "S"  to  identify  the  card  as  a  system  card. 

Cols.  2-3:  System’s  Number.  Enter  the  sequential  num¬ 
ber  for  each  system  alternative. 

Cols.  5-10:  System’s  Name.  Enter  any  alpha-numeric 
captioning  desired  for  the  system. 
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Cols.  14-15;  Number  of  Products.  Enter  the  number  ol 
different  kinds  of  product  expected  to  be  produced  by 
the  system. 

Cols.  16-20;  Hours  per  Acre.  Enter  the  average  number 
of  operating  hours  required  to  harvest  an  acre  of  the 
harvest  unit. 

Cols.  24-30;  System's  Variable  Cost.  Enter  the  cost  per 
hour  of  operating  the  system. 

Cols.  31-50;  Fuel  Description .  Enter  any  alpha-numeric 
caption  to  describe  the  fuel  type,  e.g.  chips,  cordwood, 
etc. 

Cols.  61-65;  Moisture  Content.  Enter  in  decimal  fraction 
the  moisture  content  of  fuel,  wet  basis,  as  fired. 

Cols.  66-70;  Specific  Gravity.  Enter  in  decimal  fraction 
the  specific  gravity  of  the  fuel  product. 

Cols.  71-75;  Higher  Heating  Value.  Enter  the  higher 
heating  value  in  thousands  of  Btu's  per  ovendry  pound 
of  wood  bark  fuel  type. 

Card  Type  S:  Harvest  system’s  product  data  (fig.  4). 

Use  one  card  for  each  product.  Up  to  10  products,  including 
fuel,  may  be  considered. 

Col.  1 ;  Enter  "F"  for  identification  of  the  first  card  in  the 
product  list,  which  must  have  data  for  the  fuel  to  be  har¬ 
vested. 

Cols.  2-3;  Fuel  Product  Number.  Enter  the  sequential 
number  for  each  product. 

Cols.  5-10.  Fuel  Name.  Enter  any  alpha-numeric  desig¬ 
nation  for  captioning  printed  output. 

Cols.  15-20;  Fuel.  Product  Percentages.  Enter  the  per¬ 
cent  of  solid  wood  bark  expected  to  be  realized  from 
total  harvest  by  each  product.  Percentages  for  all  prod¬ 
ucts.  including  fuel,  must  add  to  100.0  percent. 

Cols.  25-30:  Product’s  Unit.  Enter  any  alpha-numeric 
code  for  printed  output  captioning. 

Cols.  34-40:  Cubic  Feet  of  Product,  per  Unit.  Enter  the 
number  of  cubic  feet  of  solid  wood/bark  per  nominal 
unit  given  to  each  product. 

Cols.  44-50;  Variable  Cost.  Enter  cost  in  dollars  per 
unit,  associated  directly  with  production  (stumpage. 
chipping,  etc.)  and  delivery  of  the  product  type  to  point 
where  no  further  product-associated  costs  will  accrue. 

Cols.  54-60:  Market  Value.  Enter  realization  per  unit 
(selling  price  less  all  discounts,  allowances,  etc.)  antici¬ 
pated  from  the  product  type,  if  product  is  intended  for 
sale  No  value  should  be  entered  if  the  product  is  the 
fuel  for  which  a  cost  is  to  be  computed 
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J  Example  of  harvesting  cost  analysis  per  million  Btu  s. 
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Figure  1 — Example  of  harvesting  cost  analysis  per  million  Btu's. — con. 
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Figure  2.  — Example  of  harvesting  cost  analysis  per  thousand  pounds  of  water  evaporative  capacity. 
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Example  of  harvesting  cost  analysis  per  thousand  pound  of  water  evaporative  capacity  — con. 
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Figure  3  — Fue/  harvesting  analysis:  data  coding  record. 
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C  FUEL  MAPVEST  POOGWtM 

C  Br  GEOFCE  happolE 

C  ANO 

C  GIUSEPPE  REUSI 

C  FOREST  PPlOUCTS  LAPOPaTORT 

C  P.O.  POX  5130 

C  HAOISOMtT-I  53705 

C  commercial  PHONE:  608/268-5761 

C  FTS  PHONE:  36--5761 

C 

DIMENSION  PNHCd.lO),  PNO(1,10),  PP(1,10),  PUNHEtUlO), 

♦  VUEQd.lO),  PPVCtl.lO),  HV(1,10)  ,  PUCF(1,10) 

♦  ,PuA\(  (1 ,  10) 

DIMENSION  MC>"fO,50),EHvU(0,SO),VU(0,SO),DPBT(0,50) ,MM8TU(0,50)  , 

♦  TyPF(8,50) 

DIMENSION  ilP(50),CFPU(50),SGt50),HHV(50),HHx(50)»VAA(50),VPUt50), 
♦wRKCIO),  nCSTfO), 

♦  CHECK(0),TVPT(0),UTIL(0),AVMH(0).PE‘;IfO), TITLE (18) 
DIMENSION  MC (0)  ,i.c (0 ) , alpha (q ) .beta (P) .gamma (0).«TLEV(0),PHyS(0), 

♦  SPECSO)  .•0flK(U),FUEL(O),HycF(<}).PKCF(50) 

DIMENSION  HUN0(50).HUNME(S0),HyvUt50).ACfiES(50),VPA(50),MUFC  150). 

♦  HvOL(50).  Ipank(50).TCF(50) 

dimension  mSNO ( 10  ). hS N-E ( 10 ). HP A( 1 0 ), hSVC ( 1 11^. FnME(10).FPP( 10). 

♦  FPij(10).vPFi|(10),FPvC(10).C0sT(10).AAF(10),CEUllO), 

♦  AEN(I0).£EFU(|0).FMv(I0) 

data  levs  /  8/ 

DATA  MTLIM  /  0.60/ 

DATA  EVRT  /  1.7  / 

DATA  huge  /looooonooo,/ 

data  MKK  /  o/ 

DATA  (  MC(I),  Isi,6)  /  5.tO>2P>  •5*»10»“20/ 

data  (ntlEv(L).  LSI, 8)  /0.266,  0.8«a,  0,586.  0.615  / 

OAtA  (ALPhAII),  lal.S)  /.O JS, 1 .0010, 1 .OOjn, 1 . J128, 1 .8686/ 
data  (  BETAcn.tsi.S)  /  .18162, .35854, .51232, .87770, 1.00615/ 

data  (GAMHArl),  1*1,5)  /.cooil, .000385, .000385, .00081, .000885/ 

integer  HUnO.hSno.PnO.FPnO 
real  mCh,hm0Tu,mv,OF,mkT,mkv{5O),hkTv (50) 

C 

C  format  staiements,  i.  Input 

10  FQPhaT  (nA6,A2) 

500  format  (lx, 12,  lx,F8.o,  Fio.O,2x,FR.o,3x,I2,5x,F5.2) 

510  FnPMAT(Al,'2,lx,An,4x,A6,3(3x,F7.0),3X,I2,3x,F6.1) 

520  format (Ai ,12,1 x.Ao, 3*. I2,R5.2,3x,F7.0,3a6,42,5x,F5.0,2(F5.8) ,F5.2) 
55(1  format  (Ai,  12,  i>  ,Af,,ax,F6.2,8x,A6,3(3X  ,F7.o)  ) 
c  •••  format  statements,  2.  OUTPUT 

600  format  (  //  10x,'PP0“LeM  SPECIFICATIONS'//  l5X, 'NUMBER  OF  mARVEST 

♦  UNITS', 2ux, 12  /  15*, 'STAC*  GaS  T£ MPER A TUPE ' , 6* , ’ f DE GPE e S  F)',6X, 

♦  F8.0/  15X, 'ANNUAL  meat  requirement  •  ,6X,  •  (  •'MR  TU  )  '  ,  F  1  0 . 0  /  15* 

t, 'OvE-MtAti  FIXED  COSTS',  q»,'(  DOLLARS)  '  ,2*, Fo.O,/,  15*  ,  '<«0WkI,4G 

♦  capital  R£t)UlRE“£7  T  •  ,2x,  •  (  -EEkS)  '  ,6X,  I  3  /  15*,  'RISX-PPOFIT 
♦PEPCENT  REi.T' ,22«,F5.2) 

601  format  (  //  10»,'OrOBLEM  specifications*//  15X, 'NUMBER  OF  HARVEST 

♦  UNITS', 2ax, 12  /  15X, 'STACK  GAS  TEmpeP A TURE ' , 8X , • (CE GPEES  F)>,6X, 

♦  FU.O/  15x, ' ANNUAL  meat  PEOuIPEMENT * ,6x,  '  (  m»h2C )  '  ,F 1 0 . 0/  15x 

♦  , 'Overhead  fixed  costs*,  rx,'(  dollars) * ,2x,f6.o, /, isx,  '-opking 

♦  capital  requirement  •  ,2x, * f  WEEKS) * ,6X, 13  /  15X,  'RISK-pbofiT 

♦  PEPCENT  REQ.T',2Px,F5-.2) 

602  FQPMATCn',  qx,'NOTE:  IF  STACK  CAS  TEMPERATURE  ENTERED  IS  LtSS  THA 

♦  N  100,  0Er,,(EE3  F.,  COSTS  PEP  THOUSAND  PCUfJOS  OF  h2n  '  ,  / ,  1 6X ,  •  EV  APO 
♦RATIVE  capacity  kill  be  CALCULATED  AS  FOR  OIRECT-FIPEO  KILN  USE.  A 
♦NNUAL  HEAT  PFQIPIPEMENTS ' ,/, 16X, 'MUST  BE  ENTERED  AS  NUMBER  OF  THQUS 
♦AND  POUNOS  OF  M20  TO  8£  REMOVED  F»Cm  lUM0£R  ThWOUGH  kILN,') 

610  FORMAT! • I ',//, '  HARVEST  UNIT  ' , A6 , 2x , 1 2 . 8 X , ' ACRE S  '  , 2 1 X , F6  .  I , 3X ,  '  TO 

♦  TAL  CU.  ft.  avail ' , lX.FlO.  I  ,  'M',/,'  input  SEJUEnCE  N0.',2x,I3,4 

♦  X, 'VOL./ACPE  IN  ' ,A6,6x,Fq. 1 ,3X , 'CU.  FT.,  SOLID/UNIT', Fll. I, /,  '  NO 
♦.  harvest  SySTE“S' , lx, 13, 8X , 'harvest  UNIT  FIXED  COSTS', FR.O) 


67. 
68  . 
6<». 

70. 

71. 

72. 

73. 
7u. 

75. 

76. 

77. 

78. 
70. 
80. 
81. 
82. 
83. 

8U. 

85. 

86. 

87. 

88. 
89. 
00. 
.<»>. 
02. 
^3. 
Ou. 
•JS. 
06. 
97. 
08. 
00. 

100. 

lot. 

102. 

103. 

10<*. 

105. 
lOb. 
107. 

106. 
lOo. 
lie. 
111. 
1  12. 
113. 

1  l<i. 

115. 

116. 
117. 
lie. 
110. 
120. 
121 . 
122. 
123. 
12<*. 

125. 

126. 

127. 

128. 
120. 

130. 

131. 

132. 

133. 
130. 
135. 


620  FORM*T(///3x*S75TEM',ax.*HPS/'»2x.*COST/',2x,'Pi:0O',3X, 'PtBCEMT  • , 

♦  2X,  'UNIT  • ,  5x.  'SOHO*  ,6 X,  'UNIT S'. ox,  'PREP  •  ,3X,  'hkT  •  ,3x,  'MOIS  '  ,ox,  'M 
♦HHTU' ,6X, 'COST/' ,«X, 'MSTU/'.SX, 'VAR. • ,/, 13X, '*CRE ' ,2X, 'MOUH' ,3x, 'C 

♦  OPE’.ox, 'T0T*L*.3x, 'niMt '.Sx,  •CU.FT./',2x,  •  A v i IL*8LE ' , 2x , • COST / • , 2 

♦  X, 'VFL/' ,2X, 'CONT' ,2X,' AVAlLAetE'.OX, 'UNIT'  ,5x, 'UNIT* , ox, 'COST/' ,/ 

♦  ,30x, 'HECOV , 1  Ox, 'UNIT ',16X, 'UNIT' ,3X,  'UNIT* .38x, 'MMBTU* ) 

621  F0RMATf///3x'SVSTE'",0x, 'NRS/*  >2X,  'COST/'  ,2X,  'PROP' ,3x, 'PERCENT ' , 

♦  2i,'UMT',Jx,  'SOL  10'  ,6X,  'UNITS'  ,ox,  'PREP'  ,  3x  ,  '  T  '  ,  3X  ,  ■  MO  IS  '  ,  OX  ,  '  m 

♦  MRTU ',6X,'C03T/',ux, 'MBTU/ ' , 3x , ' V AP .  '  , / ,  1  SX , 'ACRE ' ,2X, 'HOUR' .3x , 'C 

♦  COE ',ax,'T0TAL',3x, 'NAMt. ,}x, •CU.FT./*,2x,  'AVAILABLE •,2x,'C0ST/',2 
♦x,'val/',2x, 'COnT • ,2x, 'available ',ox,'unit‘,5x,'UNIT',ox,'C0ST/',/ 

♦  ,30x, 'RECOV , lox, 'UNIT' , 16X, 'UNIT ' ,3x,  'UNIT ', S8x, 'M»h20’ ) 

6J0  FOfiMAT(//,lX,A6.l2,2X,Fb.2,F7.0,2X,A6,2X,F6.2,lX,A6,F7.2,3X,F8.0,F 

♦  8.2,lx,F7.2,2x,F3.2,FtO.O,3X,E7.2,Fn.2,F6.2) 

640  F0RhAT(26x ,A6,2<,F6.2,1X,A6,F7.2,2X,FO.O,F8.2,F6.2) 

640  Format  C  '  0 ' , ox ,  •  nciE .  marvEsT  StstE”  ',A6,I2,'  OISREGAROEO.  FUEL  ' 

♦  ,A6,  'has  moisture  content  above  the  specified  LIMIT', Fe. 2) 

650  format (//15X ,'***', IX, 'LEAST  COST  HARVEST  SYSTE-  ',A6,I3,'  *•*'/ 
♦25X, 'harvest  unit  ' ,A6,I3//15X. '-fuel-' .20* . '-ENERGY-' // 

♦  12X. 'UNITS  AvAIL',Ox,Fe.0,OX,'MMBTU  A V  A  1 L  '  ,  1  X , E 1 0 . 0 , / 

♦12X, 'FIXED  COST',ox,FO,o,«X, 'COST/MMBTU * , 5X , FO .2/ 

♦12X, 'TOTAL  COST/UNIT'. 2x,F8. 2) 

660  F0RMAT(//tx, 'f40TE— M  Is  THOUSANDS.  MH  IS  MILLIONS.') 

665  FORmaTC  '.ax,  "total  COST/UNIT''"  INCLUDES  HARVEST  UNIT  FI 

♦  xED  COST,  BUT  DOES  NOT  INCLUDE  "• 'OVERHEAD  F  IxEO^  COST  '  '  •  '  ,  OR  COS 

♦  T  (INTcNEST ) ' ,/, 11 X, 'FOR  working  CAPITAL  REUU IRE^ENT . ' ) 

670  format (• 1 ', IX , 'END  OF  OoTPUT.') 

C 

c  ***  Fuel  type  data  ano  estimates  of  requirements  and  costs 

60  format  Cl',  //25x,13A6,a2////) 

bt  format  ( lOX, •*•»*••»**•  FUEL  Type  assumptions  and  estimates  of 

♦  REQUIREMENTS  ANO  COSTS  *******.**' //U6* , ‘ ***•  HEAT  ENERGY 

♦  SOURCES  AND  COSTS  ••*•' //07X, '-—HEAT-ENERGY  VALUES-—-'/ 

♦  27X, 'UNIT • ,6*. 'UNITS  A V  A IL . ' . « X ,  •  CU  .F T  .  ' , u X , • SPEC . * ,5X , 

♦  'M.C. ' ,5X, ' t  COST ' ,SX, 'HIGHEP  VALUE' , OX, 'EFFECTIVE  EVAPORATION') 

62  Format  (Sx, ' •»•♦«•••**  FuEl  ttpe  assumptions  and  estimates  of 

♦REQUIREMENTS  AND  COSTS  (•,F5.0,'  DEG.F  STACK  TEMP.)  **•**••••*'// 

♦  a6x,'**»«  HEAT  ENERGY 

♦  SOURCES  ANO  COSTS  ♦♦»♦  ' //07X ,  '  — — HE  A  T-ENERGY  VALUES---'/ 

♦  27X, 'uMT',6X, 'UNITS  avail.  '  ,«X, 'CU. FT. ', ox  , 'SPEC.  '  ,5x, 

♦  'M.C.'.SX,'?  COST ' .5x, 'HIGHER  V ALuE ' , Bx , ' HE  AT  TO  STEAh') 

63  format (27X , 'BASIS', 7X, 'ANNUALLY ' ,6X, 'SOLID  '  ,5X,'GRAV.',0X, 

♦  '  (RET)  '  ,0x, 'PER  UNIT  •  ,4X, 'MBTU/UNI  T  ’,5x,  'MbTU/UMT  ',4X, 

♦  '$/MM(jTU') 

60  format (27X, 'BASIS' ,7X, 'annually' ,6X, 'SOLID' ,5*.  'GRAVr  •  ,«X, 

♦  '  (RET ) • ,ax, 'PER  UNIT  ' ,0X, 'mbtu/UnI T  '  , 5x , ' AH20/UN I T  ',ox, 

♦  •*/m«m20') 

70  F0RmaT(5X,I2,')  ',3A6,A2,A6,ox,Fl0.i>.6X,Fb.2,5X,F0.3,3X,Fb.O, 

♦  ox,  't'.F  7, 2, 6x,F8.0,5x,  no. 2,  ox,  'J',F8. 2) 

80  FORMAT!/'  PROPOSED  SnuRCE(S)') 

C 

C  'PROSPECTUS  REQUIREMENTS' 

108  F0PHAT(/16X,  PROSPECTUS  REQUIREMENTS  C.FU.O.lx,'  THOUSAND 

♦  POUNDS  OF  evaporated  RATER/YEAR)  ANO  AVERAGE  COST/M  rl2Q  •***'/) 

109  F0RHAT(/I6x, '♦•••  PROSPECTUS  REQUIREMENTS  C.Fll.U, 

♦  IX, 'million  STEAm-kEaT  BTU  S/VEAR)  ANO  average  COST/mmRTu  •♦•*'/) 

110  F0RMAT(o3x, '———annual  volumes  REQUIRED  At  VARIOUS  MOISTURE  CO 

♦  NTENTS  (RET  BASIS)— ———•//  _ 

♦ax, 'PROPOSED  SOURCES ',ex,'UNlT',7x, 

♦  'AT  GIVEN', llX. 'AT  higher  MOISTURE  CONTENT*', 

♦  lOx.'AT  LOWER  MOISTURE  CONTENT • /27 X ,  "j  AS  I S  '  , 8 x ,  '  M  ,c  .  '  , 11 X , 

♦  '♦S  PCT. ' ,ox, ' ♦lO  PCT. ' ,ax, '^20  PCT.  • ,  lox, '-5  PCT.'.ox, 

♦  '-10  PCT. ', ox, '-20  PCT.'/) 

IbO  format  (OX, 12, • ) • , lx,3*6, A2,A6,0X,F8. 1, 

♦  8X,F8.t,2(ax,F8.1),OX,F6.1,2(OX,Fe.l)) 

100  FORmaT(  ■  wIt"  “OISTUPE  C0T4TENT  CHANGED  ',13,'  PCT.  (wET  BASI 

♦S),  THERE  IS  AN  ANNUAL  DEFICIT  OF  ',F11,1,13h  mmbtu'S  *•*•) 

101  FORMAT!'  '.ux, '---COSTS  INCLUDE  "''OvERHtAO  COST''''  AND  WORKING 
♦capital  COST!InTEREST).') 


13 


219  format  ( .oi,3x,  'FVU,  C0sT/M«H20*,17x,  'SSf’.Z.fc*#  •F‘’*2.2(2X, 
♦F9.2),7x, •»',Ffl.2,2(2X, 'S'.FR.Zn 

220  F0RMAT( 'O' ,3x, 'XVG.  C08T/MMRTU*,20x  ,  •  S • ,F7 .2, 8x . ' * ' »F7.2 , 2 («X , 

♦  •$*»F7.2),9x, '1  •,F6.2,2(«*,*S»,F7,2)) 

230  FoRMAT(/flX, 'EsT.O  T0T*L  COSTS ’ . I6X ,  •  I  •  ,F6. 1 , 'M • , fix, ' $ ' ,F6. 1 / 

♦  2(’M',UX,'S',Fb.n,'M',9X,*$*,F6.I,2(*M',UX,  'S’jFO.D.'M'//) 

230  FORMATC/Ox, 'WORKING  CAPITAL  REQ'.lbx, 'S'.Fo.l, 'M'.Sx, 'I'fFb.l, 

♦  2('H',«X,'»',F6.ni'M',9X,'$'.F6.1,2(*H',<IX,'S',F6.n,'M'//) 

233  FORMAT! •  •  WOOO  Fuel  calculations  assume  oO-FCT  excess  air  ano  a-p 
♦CT  meat  loss  from  UNBURNEO  FUEL#  RADIATION  AND  UNACCOUNTED  LOS 
♦SES,  the  program  allows  WOOD  FUEL  MOISTURE'/'  CONTENTS  To  DROP  BE 
♦LOW  O-PCT  BUT  OISUUALIFIES  A  FUEL  TYPE  WHEN  MOISTURE  CONTENT'/ 

♦'  EXCEEDS  65-FCT.') 

232  Formatc  *•••••••  DUE  TO  A  BTU  DEFICIT,  THIS  CALCULATION  IS  NOT  ME 

♦aningful. ' X) 

231  FORMAT!'  •  calculations  ASSUME  A  kiln  EvapOratIvE  RATE  OF  ', 

♦FS.3,'  M',  ' 

♦  BTuS  PER  POUND'/'  OF  EVAPORATED  wATER.  EFFECTIVE  EVAPORATIVE  CAP 
♦ACITIES  For  woOO/BARk  FuElS  are*/'  ADJUSTED  For  fuel  moisture  CONT 
♦ENT,  The  program  allows  1*000  FUEL  MOISTURE'/'  CONTENT  TO  DROP  BEL 
♦Ow  ZERO-PCT  BUT  DISQUALIFIES  A  FUEL  TYPE  WHEN  MOISTURE'/'  CONTENT 
♦EXCEEOS  65-PCT.'/) 

c  format  statements.  s.  error  messages 

555  FORMAT  ! 'O',  lOX, 'ERROR.  NUMBER  OF  HARVEST  UMTS  IS  NOT  SPECIFIED 
♦IN  THE  program  and  data  CONTROL  CARO.*) 

560  FORMAT! 'O' ,  1  OX, 'ERROR.  INCORRECT  CARO  TYPE  CODE.  SHOULD  BE  MAR', 

♦  'VEST  UNIT  CARO.  INPUT  SEQUENCE  NUMBER  ',12) 

565  FORMAT! 'O' , lOx , 'ERROR.  NUMBER  OF  HARVEST  SYSTEMS  NOT  SPECIFIED  IN 

♦  harvest  unit  card,  input  SEQUENCE  NUMBER  ',I2) 

570  FORMAT! I  O' , lOX, 'ERROR.  INCORRECT  CARD  TYPE  CODE.  SHOULD  BE  MAR', 

♦  'VEST  system  CARO. input  SEQUENCE  NUMBERS ' , 1 5, ' , ' , 1 1) 

575  FORMAT! 'O' , lOX, 'ERROR.  NUMBER  OF  PRODUCTS  RECOVERED  NOT  SPECIFIED 

♦  IN  harvest  SYSTEM  CARO,  INPUT  SEQ.  NUMBERS ' , 1 3, ' . ' , 1) ) 

5B0  FOHMAT!'o',10X, 'ERROR.  INCORRECT  CARO  TYPE  CODE.  SHOULD  BE  H.S. 

♦Fuel  product  capo,  input  sequence  numbers *, I3, *, ',11) 

590  FOHmaT!»0',10X, 'ERROR.  FUEL  PRODUCT  RECOVERY  PERCENT  INCORRECTLY 

♦  specified.  INPUT  SEQUENCE  NUMBERS ' , 1 3, • . * , I )  ) 

595  FORMAT ( 'O' ,  lOX, 'ERROR.  INCORRECT  CARD  TYPE  CODE.  SHOULD  BE  NON-' 

♦  ,'FueL  PRODUCT  CARO.  INPUT  SEQ,  NUMBERS ' , 13, ' , ' , 1 1 , » . ' , 1 1 ) 


C 

C  *** 


501 

C 

c  ••• 

c 


c  ••• 


READ  15,  10)  (TITLE(I),  1=1, I#) 
write  !6,60)  !TITLE(I),I=t,ta) 

READ  IN  program  and  data  control  CARO. 
read  !5,500)  NHU,  STKT,  AMR,  FCO,  NwC,  RPR 
IF  (NMu.GE.l)  GO  TO  501 
WRITE  !6,555) 

GO  TO  599 
CONTINUE 

PRINT  OUT  PROBLEM  SPECIFICATIONS 

IF!STKT,GE. 100.0)  wrITE!6,600)  NMU, STKT , Ahr, FCO , N«C , RPR 
IFfSTKT.LT. 100.0)  WRITE  (6,601)  NHU,STkT , AhR ,FCO, NwC , RPR 
"RITE  (6,602) 

NsO 

CONTINUE 

N  S  N  ♦  1 

READ  IN  MXPVEST  unit  MEaOER  CARO. 

REAO(5,510)  CARO,  HUNO(N),  HUNME!N),  HYVU(N),  ACREStN),  VPA!N), 
,  MUFC(N),  NMS,  MVCF(N) 

IF(HYCF!N).LT.0.5)  hyCF(N)  s  i.o 

TCF(N)  3  (ACPES(N)  •  VPA(N)  *  MYCF(N))/in00. 

IF  (CAro.Eo. 'u' )  GO  TO  50a 
WRITE  (6,5eu)  N 
60  TO  5=9 
CONTINUE 

IF  (NHS.GE.t)  GO  TO  506 
WRITE  (6,565)  N 
GO  TO  599 


306. 

506 

CONTtNUt 

3u7. 

IF  (MUNO(N)  .EO.O)  »  »• 

306. 

IF  (HVVU(H).Etj.  ’  •)  HVVU(N)  «  ‘CU.FT.* 

309. 

C 

310. 

C 

PRINT  OUT  harvest  unit  constants 

311. 

C 

313. 

HPlTe(6,610)HuNME(N),MUNO(N),ACREStN),rCF(N),N,HVVU(N),VP*(N), 

313. 

♦  HVCF(M,KHS,HUFC(M) 

3i«. 

C 

31S. 

c 

•  ** 

print  out  harvest  STSTEh  headings 

316. 

c 

317. 

IF(STKT.GE.100.)  wRITE(6,630) 

316. 

IF(STkT.LT.100.)  «RITE(6.631) 

319. 

HVOLtN)  3  *CRES(N)  •  VP*(Nj 

330. 

H  3  0 

331. 

M6EST  3  0 

333. 

BEST  3  huge 

333. 

00  507  l3l,6 

339. 

507 

SPECSfl)  3  0. 

335. 

506 

continue 

336. 

H  *  M  ♦  1 

337. 

c 

**« 

RE*0  IN  harvest  system  data  CARO. 

336. 

REAO(5,530)CAR(),HSNa(H),MSNHE(M),NPR.HPA(M),NSVCfH), lN08K(I),Isl,a 

339. 

♦  ),  (PHYSd), 131,4) 

330. 

IF  (CARO.EO. 'S' )  CO  TO  511 

33>. 

hRITE  (6,570)  N,  H 

333. 

GO  TO  599 

333. 

511 

CONTINUE 

33u. 

IF  (NPR.GE.l)  GO  TO  513 

335. 

HPITE  (6,575)  N,  M 

336. 

GO  TO  599 

337. 

513 

CONTINUE 

338. 

IF  (HSNO(“) .£ 3.0)  HSNO(M)  3  M 

339. 

c 

«  «  • 

READ  IN  MARvEST  SYSTE**  FUEL  PRODUCT  CARO, 

3«0. 

read  (5,53-))  CARO,  FPnO,  FnmE(H),  FPP(M),  FPU(H).  RRCF(M), 

341  . 

♦  FPvC(M)*  Fmv(m) 

3«*3. 

IF(PRCF(n.LT.0,5)  PRCF(l)  s  73.0 

343. 

IF(PHYS(1).LT.0.5)  PMYS(I)  s  PRCF(l) 

344. 

VPFu(H)  3  PoCF(-)/MrCF<N) 

345. 

IF  (CARO.EO, 'F ■ )  GO  TO  514 

346. 

WRITE  (6,560)  N,  M 

347. 

GO  TO  599 

34f*  . 

514 

continue 

349. 

IF  (FPNO.LE.O)  FPNO  s  1 

350. 

HFPP  a  IFI*(PPP("1)) 

35  J. 

IF  (MFPP.CT.O)  GO.'  TO  518 

353. 

WRITE  (6,5901  N,  M 

353. 

G(l  TO  599 

354. 

516 

CUNTI'JUE 

355. 

PRPCST  s  FPvCC”) 

35o. 

OF  3  (FPP(M)/I0n. J  /  VPFU(H) 

357. 

JJ  s  NPR  -  1 

356. 

c 

359. 

c 

test  for  more  PRODUCTS  OTHER  Than  FUEL 

360. 

c 

36  1  . 

IF  (JJ.EO.O)  CO  TO  537 

363. 

J  3  0 

365. 

533 

CONTINUE 

364. 

J  3  J  ♦  1 

365. 

c 

read  IN  NON-F^jEL  PRUOuCT  CARO 

366  . 

RE*0(5,530)  CARO,  PN0(1,J),  PNME(1,J),  PP(1,J),  RL'NhE(1,J), 

367. 

♦  PilCF(l.J),  PPVC(1,J),  MV(l,J) 

360  . 

VUE'J(l,J)  8  PUCF(1,J)/HYCF(N) 

369. 

PUAV(l,J)  3  ((TCF(Ni  •  PP(1,J))/  PuCF(1,J))»10.0 

370. 

IF  (CARD. Eg. 'P* )  GO  TO  534 

371 . 

JP  3  J  ♦  1 

373. 

wPITE  (6,595)  N,  M,  JP 

373. 

GO  TO  599 

374. 

534 

CONTINUE 

375. 

IF(PNO(l,J).E0.0)  PN0(l,J)3j*l 

3  76. 

IF(PljNME(l,J).£g.'  •)  PUNHE(l,J)r  'Cu.FT.' 

277. 

IF(VIJEQ(l,J),UE.O.n)  VUEQ(1,J)*1  .0 

278. 

C 

279. 

C 

TEST  FOR  another  non-fuel  PRODUCT 

280. 

c 

281. 

IF  (J.LT.JJ)  SO  TO  522 

282. 

DO  526  JO  l.JJ 

283. 

SJ  r  (PPfl .J)/100.)  /  VUEOtl.J) 

28<». 

OJF  s  OJ  /  OF 

2es. 

*'kT  r  «kT  ♦  HV(l.J)  •  PUAV(l.J) 

?at>. 

PRPCST  =  PRPCST  ♦  (PPvCd.J)  -  HV(1,J))  •  OJF 

287. 

526 

CONTINUE 

288. 

527 

CONTINUE 

289. 

c 

290. 

c 

cohpute  harvest  system  COST  and  ptu's  per  unit 

291. 

c 

292. 

AAF(M)  s  mVOL(N)  0  OF 

293. 

HPVCST  a  ACRES(N)  *  mPA(M)  *  HSVC(H)  /  AAF(H) 

290. 

COST(M)  a  HRVCST  ♦  PRPCST 

29S. 

HkTV(M)  s  mkT 

296. 

CALL  eoiLEPI  STkT,  EVRT,  LEVS,  nTLEV,  nTlIM,  PHVS,  ALPHA,  BETA, 

297. 

»  gamma,  hFLAS) 

296. 

IF  (MFtAG.EQ.OJ  CO  TO  526 

299. 

"RITE  (6,609)  hSNme(M),  hSNO(m),  FNME(h),  WTLIH 

300. 

Co  TO  533 

301  . 

528 

CONTINUE 

302. 

ENGV  a  PhYS(6) 

303. 

CEU(H)  a  1000.  *  COST(M)  /  ENGV 

300. 

AEN(H)  a  (AAF(M)  *  ENGV)  /  1000. 

305. 

EEFU(H)aENG¥ 

306. 

IF  (CEU(“) .GE.PEST )  GO  TO  532 

307. 

BEST  a  CEU(M) 

308. 

MBEST  a  M 

309. 

DO  529  lal,0 

310. 

529 

FUFL(I)  a  MPBKtn 

311. 

on  531  I  a  1,6 

312. 

531 

SPECSdl  a  PHVSd) 

313. 

532 

CONTINUE 

510. 

533 

CONTINUE 

315. 

c 

316. 

c 

PRInT  OUT  SYSTEM  values  FqR  FoEl  *nD  harvest  SYsTEM  RESULTS 

317. 

c 

318. 

"RITE (6,630 )HSNme (Mj ,mSNO (M) , HP a (M) ,ms VC (M ) ,Fnme (m) ,F PP ( M ) ,F PU (M ) , 

319. 

♦PMYSd),AAF(M),FPVC(M),FMV(M),PhYS(2),AEN(h),C0ST(M),EEFU(M),CEU(M 

320. 

♦  ) 

321. 

c 

322. 

c 

•  *« 

"RITE  NON-FUEL  PRODUCT  VALUE 

323. 

c 

320. 

IF  (NPR  .eg.  1)  go  TO  535 

325. 

DO  530  Jal,JJ 

326. 

530 

mRITE  (6,600)  PNMEd.J),  PPd,J),  PUNHE(1,J),  PUCFd,J),  9UAVd,J), 

327. 

♦PPVC ( 1 » J) ,HV ( 1 , J) 

326. 

c 

329. 

c 

TEST  FOR  another  HARVEST  SYSTE"  DATA  CARD 

33C. 

c 

331. 

c 

332. 

535 

IF  (M.LT.nmS)  go  to  508 

333. 

536 

CONTINUE 

330. 

DO  537  1=1,0 

335. 

in 

TYPE(I,N)  a  FuEL(I) 

336. 

mkv(N)  a  mkTV(MHEST) 

337. 

l)P(N)  a  FPU(*'6EST) 

338. 

CFPU(N)  a  SPECSd) 

339. 

hC"(1,N)  a  SPECS(2) 

300. 

SCO;)  a  SPF.CS(S) 

301. 

hhv(N)  a  SPECS(«) 

302. 

Hm*(N)  a  SPtCS(5) 

303. 

EHvii(l,N)  a  SPECS(6) 

300. 

VAA (N)  a  AAF (MBEST  ) 

305. 

VPU(N)  a  C0ST(M8EST)  t  HUFC(N)  /  AAF(MeE5T) 

306. 

M-HTU(1*N)  a  AEN(MeEST) 

3tt7. 

346. 

340. 

3S0. 

3SJ. 

352. 

353. 

354. 

355. 
35b. 
357. 
35B. 

359. 

360. 
3b  1  . 
3b2. 
363. 
3ba. 
3b5. 
3bb. 
3b7. 
3b6. 

369. 

370. 

371. 

372. 
J73. 
37tt. 
•375. 

376. 

377. 

378. 

379. 

380. 
381  . 

382. 

383. 

384. 

385. 

386. 

387. 
368. 

389. 

390. 

391. 

392. 

393. 

394. 

395. 

396. 

397. 
39i. 

399. 

400. 

401. 

402. 
405. 

404. 

405. 

406. 

407. 

408. 

409. 

410. 

411. 

412. 

413. 

414. 

415. 
4l0. 


DPBTll.K)  »  tVPU(t4)  /  EtFU(MBEST))  *  1000. 

C  OPBT(1,n)  s  CEU(**BEsT)  ♦  huPC(B)  /  4ENCMBEST) 

C  PkINT  out  LE*8T  cost  H3PVEST  SYSTEM 

C 

MPITE  (6,b50)  HSNME(MBEst  ),hSNO(MP£,ST  ),MUNHE(N),MUN0{M  ,VA*  (N)* 

♦  MMBTU(1,N),MUFC(M),DPBT (l.N),VPU(N) 

MRITE(6,660) 

nPITE  (6,665) 

IF  (N.LT.NhU)  GO  TO  502 
C 

C  ***  DEFINE  MPJSTUPE  INC9EHEHTS  FOB  SENSITIVITY  ANALYSIS 
DO  48  I:l,N]NK 
-Cd)  *  MC(I) 

48  wC(I)  =  4C(I)  /  100. 

C 

C 

C  «**  COMPUTE  effective  meaTING  VALUE  AND  MMBTU'S  AVAILABLE  ANNUALLY 
C  *•*  PEB  standard  unit 
DO  50  NSl.NHU 
PhYS(l)  =  CFPU(N) 

PHYS(3)  =  SG(M) 

PMYS(4)  a  hMV(N) 

DO  51  Kal.NINK 
J  a  R  ♦  1 

mCw(J,n)  a  mC4(1,N)  *  4C(K) 

PHYS(2)  a  mcn(J,N) 

CALL  60ILEr(  STRT,  EVPT,  LEVS,  htLEv,  mTLIM,  PMYS,  ALPHA,  BETA 

♦  gamma,  “FLAG) 

EHVU(J,N)  a  PHvSfb) 

IF  (MFlAG.EO.1)  go  to  52 
DP0T(J,N)  =  (VPU(N)/Ehvu(J,N))  *  1000.0 
52  MMBTU(J,N)  a  (EHVU(J,N)*VAA(N))/I000,0 
51  continue 
50  CONTINUE 
C 

C  ranking  sequence  (TO  RANK  OPTIONS  IN  TERMS  OF  LEAST  COST  PER 
C  effective  mmhTU'S  at  given  moisture  CONTENT) 

c 

IF  (NHU.lE.1)  go  to  133 

LIMIT  a  NHU  «  1 
DO  120  Nai,NHU 
IRANKCN)  s  n 
120  CONTINUE 

DO  125  INOEAal .LIMIT 
IBEST  a  IRANK(INDEX) 

IPLUS  »  index  ♦  1 
ISTAR  a  0 

00  150  lalPLUS.NHU 
II  a  IRANK(I) 

IF  (DPBTCl.II)  -  OPBTd, IBEST))  129,  130,  130 

129  ISTAR  a  I 
IBEST  a  II 

130  CONTINUE 

IF  (ISTAR. GT.O)  IRANK(ISTAR)  a  IRANK(INOEX) 

IRANK(INOEX)  a  IBEST 
125  CONTINUE 
133  CONTINUE 
C 

C  •**  COMPUTE  volumes  of  RESOURCES  REQUIRED 
C 

00  151  Jal,7 
CHECR(J)  a  AMR 
DO  150  Kai.NMu 

N  a  IKANK(K) 

CHECK(J)  a  CMECK(J)  -  MMBTU(J,N) 

IF(CHECK(J).GT.0.0)  VU(J,N)  a  VAA(N) 

IFICHECKIJI.LT.O.O)  VU(J,N)  a  ( (CHECK ( J ) aMMB Tu ( J , N  )  )  *  I  C 00 . 0 )  / 

♦  EHVU(J,N) 

IF(mC/*(J,n).GT.kTLIM)  VU(J,N)  a  0.0 
IF(yu( J,N) .lT.0.0)  vU(J,N)  a  o.O 


ai7. 

150 

CONTINUE 

aje. 

tsi 

CONTINUE 

4t<». 

C 

UiO. 

C 

C0'’9UTE  AVEnAGE  VC0ST/*'N8TU'S  (*VHB)  AND  TOTAL  COST  (6ENI) 

421. 

C 

422. 

J  a  1 

423. 

200 

TV8T(J)aFC0 

424. 

UTiLIJJaO. 

425. 

DO  210  Ksl.NHU 

42e>. 

N  a  IRANK(K) 

427. 

TVBTIJ)  a  (VU(J»N)*vPutN))  ♦  TVBTtJ) 

428. 

hRKC(J)8  ((NNC*VU(J>N))/(52«0*VAA(Nn*(TVBT(J)«HKV(N)))«HRKC(J) 

424. 

UTIL(J)  a  ((EHvu(J.N)*vu(J.N))/tOOO.O)  ♦  UTIL(J) 

430. 

210 

CONTINUE 

431  . 

>iCST(J)s>iRKC(J)*RPR 

«32. 

TVSTIJ)  a  TvBT(J)  ♦  «C3T(J) 

433. 

NRKC(J)  a  MRKC(J)  /tOOO.O 

434. 

SEnKJ)  a  TV8T(J)/1000.0 

435. 

AVH8(J)  a  TVHT(J)/UTIL(J1 

436. 

J  a  J  «  1 

437. 

IF(J.LT.8)  GO  TO  200 

438. 

C 

439. 

C 

FUEL  type  OaTa  FOR  EACH  HARVEST  UNIT 

440. 

C 

44t  . 

"RITE  (6,60)  (TITLE(I),Iat,t4) 

44^. 

IFCSTKT.LE. 100.0)  NRITE(6,6l) 

44}. 

IF(ST8T.GT. 100.0)  4RlTe(6,62)  STKT 

444. 

IF(STt(T.GT.99,9)  kRITE(6,63) 

445. 

IF<STKT.LT. 100.0)  .»RITE(6,64) 

446. 

aPlTE(6,80) 

447. 

00  90  KSl,NHU 

448, 

N  a  IRANK(R) 

449. 

"RITE (6, 70)  8,  (TVPE(I,N), l3l,4),UB(N),VAA(N),CFPU(N), 

450. 

♦  SG(N),HC4<1,N),VPU(N),MHX(N),EHV0(1,N),DPBT(1,N) 

451. 

90 

CONTINUE 

452. 

mRITE (6,660) 

453. 

C 

454. 

C 

•prospectus  REOUIREHEMTS* 

455. 

c 

45o. 

••RITE  (a, 60)  (TITLE(I),  lal,lO) 

457. 

IF(STKT,LE. 100.0)  NRITE  (6,108)  AMR 

458. 

IF  (STKT. UT. 99. 9)  4RITE  (6,109)  AMR 

459. 

wRITE(6,110) 

460. 

DO  171  KSI.nMU 

461. 

N  a  IRANK(K) 

462. 

WRITE (6,160)  K,  (TYPE(I,N),Ial,4),UB(N), (VU(J,N),Jal,7) 

463. 

171 

CONTINUE 

4o4. 

IF(STKT.LT. 100.0)  .»RITE (6 , 219)  (AVHB(J),  Jal,7) 

465. 

IF(STKT.GT.  99.9)  nRITE  (6 , 220 ) ( A vHP ( J ) ,  Jal,7) 

46b. 

JJ  a  0 

«e7. 

DO  172  Jal,7 

4o6  . 

IF(CHECK(J).LE.0.0)  GO  TO  172 

469. 

JJ  a  1 

470. 

8ENI(J)  a  huge 

-71. 

172 

CONTINUE 

472. 

•iRITE(6,230)  (BENl(J),Jal,7) 

«73. 

■RITE(6,234)  (wRKCIJIfJal,?) 

474. 

IF(STKT.LT. 100.0)  •<RITE(6,231  ),  EVRT 

475. 

IF(STKT.GT.  99.9)  hRITE(6,233) 

476. 

IF(JJ.Ea.l)  »RITE(6,232) 

477. 

00  180  J*l,7 

478. 

IF(ChECk(J).GT.o.o)  "RITE (6, 190)  mC (J ), CHECK (J ) 

479. 

180 

continue 

480. 

c 

481  . 

-RITE (6,6601 

482. 

WRITE  (6,191) 

483. 

599 

continue 

484. 

■•RITE(6,670) 

485. 

STOP 

486. 

EnO 

18 


irU.  S.  GOVBWMENT  PRINnNG  OFFia:  198S/S44-045/20008 


The  Forest  Products 
Laboratory  (USDA  Forest 
Service)  has  served  as  the 
national  center  for  wood 
utilization  research  since 
1910.  The  Laboratory,  on  the 
University  of  Wisconsin- 
Madison  campus,  has 
achieved  worldwide 
recognition  for  its 
contribution  to  the  knowledge 
and  better  use  of  wood. 


Early  research  at  the 
Laboratory  helped  establish 
U.S.  industries  that  produce 
pulp  and  paper,  lumber, 
structural  beams,  plywood, 
particleboard  and  wood 
furniture,  and  other  wood 
products.  Studies  now  in 
progress  provide  a  basis  for 
more  effective  management 
and  use  of  our  timber 
resource  by  answering  critical 
questions  on  its  basic 
characteristics  and  on  its 
conversion  for  use  in  a  variety 
of  consumer  applications. 


Unanswered  questions  remain 
and  new  ones  will  arise 
because  of  changes  in  the 
timber  resource  and 
increased  use  of  wood 
products.  As  we  approach  the 
21st  Century,  scientists  at  the 
Forest  Products  Laboratory 
will  continue  to  meet  the 
challenge  posed  by  these 
questions. 
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